home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 19 / CU Amiga Magazine's Super CD-ROM 19 (1998)(EMAP Images)(GB)[!][issue 1998-02].iso / Scala / HD-Install / Français < prev    next >
Text File  |  1997-12-16  |  23KB  |  840 lines
  1. ; $VER: Scala Install Program Version 3.03 (2-Nov-95)
  2.  
  3. ;----------------------------- Text Strings -------------------------------
  4.  
  5. (set msg_Utils    "Utilitaires Scala")
  6. (set msg_Palettes    "Palettes Scala")
  7. (set msg_Symbols  "Brosses Scala")
  8. (set msg_ARexx       "Exemple ARexx Scala")
  9. (set msg_EX    "EX Scala")
  10. (set msg_Fonts    "Polices Scala")
  11. (set msg_Back     "Fonds Scala")
  12. (set msg_Demos    "Scripts de démo Scala")
  13. (set msg_Resize      "Changer la taille des fonds Scala")
  14. (set msg_ScalaFont   "Scala.font")
  15. (set msg_NoFastMem1     "Pas de mémoire rapide installée ou disponible.\n\n")
  16. (set msg_NoFastMem2     "Scala MM300 nécessite de mémoire rapide pour fonctionner.\n\n")
  17. (set msg_NoFastMem3     "Pour installer Scala, vous devez d'abord installer de la mémoire rapide dans votre Amiga avec le port PCMCIA (A1200) ou ajouter une extension de mémoire ou une carte accélératrice dans le connecteur d'extension (A1200/A4000).")
  18. (set msg_NoSelect "Vous n'avez rien sélectionné. Recommencez, SVP.")
  19. (set msg_NoDrawer ("Vous devez choisir un tiroir où installer %s. Créez un nouveau tiroir ou sélectionnez un tiroir existant." @app-name))
  20. (set msg_ChooseWhat  ("Sélectionnez les parties de %s que vous voulez installer :" @app-name))
  21. (set msg_ChooseDest  ("Sélectionnez l'emplacement où %s doit être installé :" @app-name))
  22. (set msg_Overscan1   "Vous pouvez passer les fonds de Scala en overscan. Notez que les modes %s et %s prendront plus de place ssur votre disque dur et réduiront peut-être les performances des effets de Scala.\n\n")
  23. (set msg_Overscan2   "Vous avez choisi de passer les fonds de Scala en overscan. Notez que cela demande plus de place sur votre disque dur et peut réduire les performances des effets de Scala.\n\n")
  24. (set msg_ChooseSize  "Choisissez la taille des fonds d'écran de Scala :")
  25. (set msg_OldWorkbench   ("Vous devez utiliser le Workbench 2.04 ou supérieur pour installer %s" @app-name))
  26. (set msg_Nor      "Normal")
  27. (set msg_Std      "Standard")
  28. (set msg_Max      "Maximum")
  29. (set msg_Startup  ("Voulez-vous que %s soit automatiquement lancé lorsque vous démarrez votre Amiga ?" @app-name))
  30. (set msg_ErrorRam "Erreur lors de la copie des fichiers dans Ram:")
  31. (set msg_Insert      "Insérez la disquette Disk %ld dans un lecteur, SVP.")
  32. (set msg_Installing  "\nInstallation de :\n\n%s...")
  33. (set msg_MoveLingua  "Remplacement des chemins d'accès dans %s...")
  34. (set msg_ConvertNTSC "Conversion du fond %s en NTSC...")
  35. (set msg_ConvertOverscan "Conversion du fond %s en overscan...")
  36. (set msg_DeleteOldFiles ("Une ancienne version de %s est déjà installée sur votre disque dur.  Voulez-vous que j'efface les anciens fichiers que ne sont plus nécessaires ?" @app-name))
  37.  
  38.  
  39. ;------------------------------ Constants ---------------------------------
  40.  
  41. (if (= @app-name "Scala InfoChannel")
  42.     (set IC 1)
  43.     (set IC 0)
  44. )
  45.  
  46. (if (= @app-name "InfoChannel Player")
  47.     (set PL 1)
  48.     (set PL 0)
  49. )
  50.  
  51. (if (= @app-name "Scala Multimedia")
  52.     (set MM 1)
  53.     (set MM 0)
  54. )
  55.  
  56. (if (= @app-name "Upgrade Scala Multimedia")
  57.     (set UPGR 1)
  58.     (set UPGR 0)
  59. )
  60.  
  61. (if (or IC MM)
  62.     (
  63.    (set opt_Scala    %000000001)
  64.    (set opt_Utils    %000000010)
  65.    (set opt_Palettes %000000100)
  66.    (set opt_Symbols  %000001000)
  67.    (set opt_ARexx    %000010000)
  68.    (set opt_EX    %000100000)
  69.    (set opt_Fonts    %001000000)
  70.    (set opt_Back     %010000000)
  71.    (set opt_Demos    %100000000)
  72.     )
  73. )
  74.  
  75. (if PL
  76.     (
  77.    (set opt_Scala    %000000001)
  78.    (set opt_Symbols  %000000010)
  79.    (set opt_EX    %000000100)
  80.    (set opt_Fonts    %000001000)
  81.    (set opt_Back     %000010000)
  82.     )
  83. )
  84.  
  85. (if UPGR
  86.     (
  87.    (set opt_Scala    %000000001)
  88.    (set opt_Utils    %000000010)
  89.    (set opt_EX    %000000100)
  90.    (set opt_Back     %000001000)
  91.    (set opt_Demos    %000010000)
  92.     )
  93. )
  94.  
  95.  
  96. (if (or IC PL)
  97.     (
  98.    (set lha_Scala    "Scala.lha")
  99.    (set num_Scala    1)
  100.    (set lha_ScalaFont   "ScalaFont.lha")
  101.    (set num_ScalaFont   1)
  102.    (set lha_Utils    "Utilities.lha")
  103.    (set num_Utils    1)
  104.    (set lha_Palettes "Palettes.lha")
  105.    (set num_Palettes 1)
  106.    (set lha_Symbols  "Symbols.lha")
  107.    (set num_Symbols  1)
  108.    (set lha_ARexx    "ARexx.lha")
  109.    (set num_ARexx    1)
  110.    (set lha_Scripts  "Scripts.lha")
  111.    (set num_Scripts  1)
  112.    (set lha_EX    "EX.lha")
  113.    (set num_EX    2)
  114.    (set lha_Fonts    "Fonts.lha")
  115.    (set num_Fonts    2)
  116.    (set lha_Back1    "Backgrounds1.lha")
  117.    (set num_Back1    2)
  118.    (set lha_Back2    "Backgrounds2.lha")
  119.    (set num_Back2    3)
  120.    (set lha_Back3    "Backgrounds3.lha")
  121.    (set num_Back3    4)
  122.    (set lha_Back4    "Backgrounds4.lha")
  123.    (set num_Back4    5)
  124.    (set lha_Demos1      "Demos1.lha")
  125.    (set num_Demos1      6)
  126.    (set lha_Demos2      "Demos2.lha")
  127.    (set num_Demos2      7)
  128.    (set lha_Demos3      "Demos3.lha")
  129.    (set num_Demos3      8)
  130.    (set lha_Demos4      "Demos4.lha")
  131.    (set num_Demos4      9)
  132.    (set lha_Demos5      "Demos5.lha")
  133.    (set num_Demos5      10)
  134.    (set lha_Demos6      "Demos6.lha")
  135.    (set num_Demos6      11)
  136.    (set lha_Demos7      "Demos7.lha")
  137.    (set num_Demos7      12)
  138.    (set lha_Demos8      "Demos8.lha")
  139.    (set num_Demos8      13)
  140.    (set lha_Demos9      "Demos9.lha")
  141.    (set num_Demos9      14)   
  142.     )
  143. )
  144.  
  145. (if MM
  146.     (
  147.    (set lha_Scala    "Scala.lha")
  148.    (set num_Scala    1)
  149.    (set lha_ScalaFont   "ScalaFont.lha")
  150.    (set num_ScalaFont   1)
  151.    (set lha_Utils    "Utilities.lha")
  152.    (set num_Utils    1)
  153.    (set lha_EX    "EX.lha")
  154.    (set num_EX    10)
  155.    (set lha_ARexx    "ARexx.lha")
  156.    (set num_ARexx    1)
  157.    (set lha_Scripts  "French/Scripts.lha")
  158.    (set num_Scripts  1)
  159.    (set lha_Fonts    "Fonts.lha")
  160.    (set num_Fonts    2)
  161.    (set lha_Palettes "Palettes.lha")
  162.    (set num_Palettes 2)
  163.    (set lha_Symbols  "Symbols.lha")
  164.    (set num_Symbols  2)
  165.    (set lha_Back1    "Backgrounds1.lha")
  166.    (set num_Back1    2)
  167.    (set lha_Back2    "Backgrounds2.lha")
  168.    (set num_Back2    3)
  169.    (set lha_Back3    "Backgrounds3.lha")
  170.    (set num_Back3    4)
  171.    (set lha_Back4    "Backgrounds4.lha")
  172.    (set num_Back4    5)
  173.    (set lha_Back5    "Backgrounds5.lha")
  174.    (set num_Back5    6)
  175.    (set lha_Demos1      "Demos1.lha")
  176.    (set num_Demos1      6)
  177.    (set lha_Demos2      "Demos2.lha")
  178.    (set num_Demos2      7)
  179.    (set lha_Demos3      "Demos3.lha")
  180.    (set num_Demos3      8)
  181.    (set lha_Demos4      "Demos4.lha")
  182.    (set num_Demos4      9)
  183.     )
  184. )
  185.  
  186. (if UPGR
  187.     (
  188.    (set lha_Scala    "Scala.lha")
  189.    (set num_Scala    1)
  190.    (set lha_ScalaFont   "ScalaFont.lha")
  191.    (set num_ScalaFont   1)
  192.    (set lha_Utils    "Utilities.lha")
  193.    (set num_Utils    1)
  194.    (set lha_EX    "EX.lha")
  195.    (set num_EX    1)
  196.    (set lha_Scripts  "Scripts.lha")
  197.    (set num_Scripts  1)
  198.    (set lha_Back1    "Backgrounds1.lha")
  199.    (set num_Back1    2)
  200.    (set lha_Demos1      "Demos1.lha")
  201.    (set num_Demos1      2)
  202.    (set lha_Demos2      "Demos2.lha")
  203.    (set num_Demos2      3)
  204.     )
  205. )
  206.  
  207.  
  208.  
  209. ;-------------------------- Utility procedures ----------------------------
  210.  
  211. (Procedure CheckConfig
  212.     (set OS_Version (/ (getversion) 65536))
  213.     (if (< OS_Version 37)
  214.    (abort msg_OldWorkbench)
  215.     )
  216.     (if (= (database "vblank") 50)
  217.         (   (SET VideoMode "PAL")
  218.             (SET NOR ("640 x 512 (%s)" msg_Nor))
  219.             (SET STD ("704 x 566 (%s)" msg_Std))
  220.             (SET MAX ("736 x 566 (%s)" msg_Max))
  221.    )
  222.         (   (SET VideoMode "NTSC")
  223.             (SET NOR ("640 x 400 (%s)" msg_Nor))
  224.             (SET STD ("704 x 480 (%s)" msg_Std))
  225.             (SET MAX ("736 x 482 (%s)" msg_Max))
  226.    )
  227.     )
  228. )
  229.  
  230. (Procedure CheckFastMem
  231.    (run "AVAIL >ENV:FastMem FAST" (Safe))
  232.    (if (= ("%.1s" (getenv "FastMem")) 0)
  233.        (abort msg_NoFastMem1 msg_NoFastMem2 msg_NoFastMem3)
  234.    )
  235.    (delete "env:FastMem")
  236. )
  237.  
  238. (Procedure CopyTools
  239. ;(askdisk (dest "Disk1") (prompt (msg_Insert 1)) (help @askdisk-help) )
  240.     (copyfiles
  241.    (prompt "")
  242.    (help @copyfiles-help)
  243.    (source "Tools")
  244.    (all)
  245.    (dest "RAM:")
  246.     )
  247.     (if (not (and (exists "RAM:LHa") 
  248.         (exists "RAM:MakeOverscan") 
  249.         (exists "RAM:MoveLingua")))
  250.    (abort msg_ErrorRam)
  251.     )
  252. )
  253.  
  254.  
  255. (Procedure InstallFile
  256. ; (askdisk   (dest ("Disk%ld" DiskNum))
  257. ;        (prompt (msg_Insert DiskNum))
  258. ;        (help @askdisk-help)
  259. ; )
  260.     (working (msg_Installing Installing))
  261.     (run ("RAM:LHa -N x %s \"%s/\"" LhaFile @Dest))
  262. )
  263.  
  264.  
  265. (Procedure InstallFontFiles
  266.     (working (msg_Installing Installing))
  267.     (run ("RAM:LHa -N x %s \"%s\"" LhaFile "Fonts:"))
  268. )
  269.  
  270. (Procedure InstallConfigFile
  271.     (set ConfigDest (tackon "ENVARC:" "Scala"))
  272.     (if (not (exists ConfigDest))
  273.         (
  274.             (makedir ConfigDest)
  275.             (copyfiles
  276.                 (prompt "")
  277.                 (help @copyfiles-help)
  278.                 (source (tackon "RAM:" "scalamm.config"))
  279.                 (dest ConfigDest)
  280.             )
  281.         )
  282.     )
  283. )
  284.  
  285. (Procedure MoveLingua
  286.     (set i 0)
  287.     (while 
  288.    (set ScriptName 
  289.        (if IC
  290.            (select i
  291.              "InfoChannelIC400.script"
  292.              "LoScalatore.script"
  293.              "ScalaAGA.script"
  294.              "ScalaAirport.script"
  295.              "ScalaCableTV.script"
  296.              "ScalaComms.script"
  297.              "ScalaFeatures.script"
  298.              "ScalaFonts.script"
  299.              "ScalaHotel.script"
  300.              "ScalaQuiz.script"
  301.              "ScalaShopping.script"
  302.              "ScalaTime.script"
  303.              "ScalaTravel.script"
  304.              "ScalaVoice.script"
  305.              "ScalaWipes.script"
  306.              "ScalaWorld.script"
  307.              "ScaliniMotor.script"
  308.              ""
  309.            )
  310.            (select i
  311.              "!ScalaPrincipal.script"
  312.              "LoScalatore.script"
  313.              "ScalaFonctions.script"
  314.              "ScalaPolices.script"
  315.              "ScalaMM300.script"
  316.              "ScalaProduits.script"
  317.              "ScalaJeu.script"
  318.              "ScalaClip.script"
  319.              "ScalaVideo.script"
  320.              "ScalaVoix.script"
  321.              "ScalaEffets.script"
  322.              "ScalaMonde.script"
  323.              ""
  324.            )
  325.        )
  326.       )
  327.    (set ScriptName (tackon (tackon @dest "Scripts") ScriptName))
  328.       (if (exists ScriptName)
  329.        (
  330.            (working (msg_MoveLingua ScriptName))
  331.            (run ("RAM:MoveLingua \"%s\" Work:Scala \"%s\" \"%s\"" ScriptName @dest (tackon @dest "Scripts")))
  332.        )
  333.    )
  334.    (set i (+ i 1))
  335.     )
  336. )
  337.  
  338. (Procedure MakeOverscan
  339.     (set i 0)
  340.     (while 
  341.    (set PictureName 
  342.        (if UPGR
  343.            (select i
  344.           "Fabrics004"  "Nature001" "Nature002"
  345.           "Stones012"      "Stones013" "Texture014"
  346.           "Texture015"  "Texture016"   "Theme005"
  347.           ""
  348.       )
  349.            (select i
  350.           "Fabrics001"  "Fabrics002"   "Fabrics003"
  351.           "Fabrics004"  "Fantasy001"   "Grass001"
  352.           "NaiveBook"      "NaiveClock"   "NaiveCoffee"
  353.           "NaiveDisk"      "NaivePencil"  "NaivePhone"
  354.           "NaivePiano"  "NaivePlate"   "Nature001"
  355.           "Nature002"      "Number001" "Number002"
  356.           "Number003"      "Number004" "Number005"
  357.           "Number006"      "Number007" "Number008"
  358.           "Number009"      "Painting001"  "Painting002"
  359.           "Painting003" "Painting004"  "Paper001"
  360.           "Paper002"    "Paper003"  "Paper004"
  361.           "Paper005"    "Sky001" "Stones001"
  362.           "Stones002"      "Stones003" "Stones004"
  363.           "Stones005"      "Stones006" "Stones007"
  364.           "Stones008"      "Stones009" "Stones010"
  365.           "Stones011"      "Stones012" "Stones013"
  366.           "Tech001"     "Tech002"   "Tech003"
  367.           "Tech004"     "Tech005"   "Tech006"
  368.           "Tech007"     "Texture001"   "Texture002"
  369.           "Texture003"  "Texture004"   "Texture005"
  370.           "Texture006"  "Texture007"   "Texture008"
  371.           "Texture009"  "Texture010"   "Texture011"
  372.           "Texture012"  "Texture013"   "Texture014"
  373.           "Texture015"  "Texture016"   "Theme001"
  374.           "Theme002"    "Theme003"  "Theme004"
  375.           "Theme005"    "Water001"  "Window001"
  376.           ""
  377.            )
  378.        )
  379.       )
  380.       (if (and (= VideoMode "NTSC") (= BackSize 0))
  381.        (working (msg_ConvertNTSC PictureName))
  382.        (working (msg_ConvertOverscan PictureName))
  383.    )
  384.    (set PictureName (tackon (tackon @dest "Backgrounds") PictureName))
  385.    (run ("RAM:MakeOverscan \"%s\" \"%s\" %s %s" PictureName PictureName
  386.       VideoMode (select BackSize "NOR" "STD" "MAX")))
  387.    (set i (+ i 1))
  388.     )
  389.     (if (= VideoMode "NTSC")
  390.    (
  391.             (set PictureName (tackon (tackon @dest "Backgrounds") "World001"))
  392.           (run ("RAM:MakeOverscan \"%s\" \"%s\" NTSC NOR" PictureName PictureName))
  393.    )
  394.     )
  395. )
  396.  
  397. ;-------------------------- Cleanup procedures ----------------------------
  398.  
  399. (Procedure DeleteTools
  400.     (delete "RAM:MakeOverscan" "RAM:MoveLingua" "RAM:Lha" "RAM:scalamm.config")
  401. )
  402.  
  403. (onerror (DeleteTools))
  404.  
  405.  
  406. (Procedure DeleteOldFiles
  407.     (if (or IC PL)
  408.    (
  409.        (if (exists "libs:infochannel.library")
  410.       (if (askbool (prompt msg_DeleteOldFiles) (help @askbool-help))
  411.           (
  412.               (delete "libs:infochannel.library")
  413.               (delete "devs:infochannel.device")
  414.               (delete "s:infochannel.config")
  415.               (delete "s:infochannel.layout")
  416.               (delete "s:infochannel.layout.info")
  417.               (delete "s:startup-script")
  418.               (delete "fonts:Info.font")
  419.               (delete "fonts:Info/11")
  420.               (delete "fonts:Info/8")
  421.               (delete "fonts:Info")
  422.               (delete (tackon @dest "InfoPrint"))
  423.               (delete (tackon @dest "InfoPrint.info"))
  424.               (delete (tackon @dest "InfoNet"))
  425.               (delete (tackon @dest "InfoNet.info"))
  426.           )
  427.       )
  428.        )
  429.    )
  430.    (
  431.        (if (exists "libs:scalamm.library")
  432.       (if (askbool (prompt msg_DeleteOldFiles) (help @askbool-help))
  433.           (
  434.               (delete "libs:scalamm.library")
  435.               (delete "devs:scalamm.device")
  436.               (delete "s:scalamm.config")
  437.               (delete "s:scalamm.layout")
  438.               (delete "s:scalamm.layout.info")
  439.               (delete "s:startup-script")
  440.               (set utils (tackon @dest "Utilities"))
  441.               (delete (tackon utils "ScalaMMPrint"))
  442.               (delete (tackon utils "ScalaMMPrint.info"))
  443.           )
  444.       )
  445.        )
  446.    )
  447.     )
  448. )
  449.  
  450. ;-------------------------- Menu procedures -------------------------------
  451.  
  452. (Procedure InstallMenu
  453.     (until (<> Selection 0)
  454.       (
  455.             (if (or IC MM)
  456.            (set Selection
  457.                (askoptions
  458.                    (prompt msg_ChooseWhat)
  459.                    (help @askoptions-help)
  460.                         (choices @app-name
  461.                              msg_Utils
  462.                              msg_Palettes
  463.                              msg_Symbols
  464.                              msg_ARexx
  465.                              msg_EX
  466.                              msg_Fonts
  467.                              msg_Back
  468.                              msg_Demos
  469.                         )
  470.           )
  471.       )
  472.        )
  473.        (if PL
  474.            (set Selection
  475.                (askoptions
  476.                    (prompt msg_ChooseWhat)
  477.                    (help @askoptions-help)
  478.               (choices @app-name
  479.                       msg_Symbols
  480.                       msg_EX
  481.                       msg_Fonts
  482.                       msg_Back
  483.                      )
  484.           )
  485.       )
  486.             )
  487.        (if UPGR
  488.       (set Selection
  489.                (askoptions
  490.                    (prompt msg_ChooseWhat)
  491.                    (help @askoptions-help)
  492.                    (default %11111)
  493.                         (choices @app-name
  494.                              msg_Utils
  495.                              msg_EX
  496.                              msg_Back
  497.                              msg_Demos
  498.                         )
  499.           )
  500.                 )
  501.             )
  502.  
  503.    )
  504.         (if (= Selection 0)    
  505.             (message msg_NoSelect)
  506.         )
  507.     )
  508. )
  509.  
  510.  
  511. (Procedure BackMenu
  512.     (set BackSize
  513.         (askchoice
  514.             (prompt (msg_Overscan1 STD MAX) msg_ChooseSize)
  515.             (help @askchoice-help)
  516.             (choices NOR STD MAX)
  517.    )
  518.     )
  519. )
  520.  
  521.  
  522. (Procedure DestMenu
  523.     (set @dest "")
  524.     (while (= @dest (pathonly @dest))
  525.         (set @dest
  526.             (askdir
  527.                 (prompt msg_ChooseDest)
  528.                 (help @askdir-help)
  529.                 (newpath)
  530.                 (default @default-dest)
  531.        )
  532.         )
  533.         (if (= @dest (pathonly @dest))
  534.        (message msg_NoDrawer)
  535.    )
  536.     )
  537.     (if (not (exists @dest))
  538.       (
  539.        (makedir @dest (infos))
  540.             (tooltype (dest @dest) (noposition))
  541.    )
  542.     )
  543.     (set @default-dest @dest)
  544. )
  545.  
  546.  
  547.  
  548. ;------------------------- Installation procedures ------------------------
  549. (Procedure InstallScala
  550.     (set System (tackon @dest "System"))
  551.     (makedir System (infos))
  552.     (tooltype (dest System) (noposition))
  553.  
  554.     (set Installing @app-name)
  555.     (set LhaFile lha_Scala)
  556.     (set DiskNum num_Scala)
  557.     (InstallFile)
  558.     (set LhaFile "French/ScalaMsgFR.Lha")
  559.     (set DiskNum num_Scala)
  560.     (InstallFile)
  561.  
  562.     (set Installing msg_ScalaFont)
  563.     (set LhaFile lha_ScalaFont)
  564.     (set DiskNum num_ScalaFont)
  565.     (InstallFontFiles)
  566.  
  567.  
  568.     (if PL
  569.    (
  570.        (set Scripts (tackon @dest "Scripts"))
  571.        (makedir Scripts (infos))
  572.        (tooltype (dest Scripts) (noposition))
  573.        (copyfiles (source "InfoChannel.script")
  574.       (dest (tackon @dest "Scripts"))
  575.        )
  576.        (textfile (dest (tackon @dest "System/InfoChannel.startup"))
  577.          (append (tackon @dest "Scripts/InfoChannel.script"))
  578.        )
  579.    )
  580.    (
  581.        (set i 0)
  582.        (while 
  583.       (set DrawerName
  584.           (select i
  585.             "Scripts"
  586.             "Backgrounds"
  587.             "Animations"
  588.             "Music"
  589.             "Sounds"
  590.             "Symbols"
  591.             "Palettes"
  592.             "Text"
  593.             "Layouts"
  594.             ""
  595.           )
  596.          )
  597.       (set DrawerName (tackon @dest DrawerName))
  598.            (makedir DrawerName (infos))
  599.            (tooltype (dest DrawerName) (noposition))
  600.       (set i (+ i 1))
  601.        )
  602.    )
  603.     )
  604.     (if (or IC PL)
  605.       (
  606.        (startup 
  607.          (prompt msg_Startup)
  608.          (help @startup-help)
  609.          "Scala"
  610.          (if IC
  611.           (command (tackon @dest "InfoChannel"))
  612.           (command (tackon @dest "InfoPlayer"))
  613.       )
  614.        )
  615.    )
  616.     )
  617. )
  618.  
  619. (Procedure InstallUtils
  620.     (set Utilities (tackon @dest "Utilities"))
  621.     (makedir Utilities (infos))
  622.     (tooltype (dest Utilities) (noposition))
  623.  
  624.     (set Installing msg_Utils)
  625.     (set LhaFile lha_Utils)
  626.     (set DiskNum num_Utils)
  627.     (InstallFile) 
  628. )
  629.  
  630. (Procedure InstallPalettes
  631.     (set Palettes (tackon @dest "Palettes"))
  632.     (makedir Palettes (infos))
  633.     (tooltype (dest Palettes) (noposition))
  634.  
  635.     (set Installing msg_Palettes)
  636.     (set LhaFile lha_Palettes)
  637.     (set DiskNum num_Palettes)
  638.     (InstallFile)
  639. )
  640.  
  641. (Procedure InstallSymbols
  642.     (set Symbols (tackon @dest "Symbols"))
  643.     (makedir Symbols (infos))
  644.     (tooltype (dest Symbols) (noposition))
  645.  
  646.     (set Installing msg_Symbols)
  647.     (set LhaFile lha_Symbols)
  648.     (set DiskNum num_Symbols)
  649.     (InstallFile)
  650. )
  651.  
  652. (Procedure InstallArexx
  653.     (set ARexx (tackon @dest "ARexx"))
  654.     (makedir ARexx (infos))
  655.     (tooltype (dest ARexx) (noposition))
  656.  
  657.     (set Installing msg_ARexx)
  658.     (set LhaFile lha_ARexx)
  659.     (set DiskNum num_ARexx)
  660.     (InstallFile)
  661. )
  662.  
  663. (Procedure InstallScripts
  664.     (set Scripts (tackon @dest "Scripts"))
  665.     (makedir Scripts (infos))
  666.     (tooltype (dest Scripts) (noposition))
  667.  
  668.     (set Installing msg_Demos)
  669.     (set LhaFile lha_Scripts)
  670.     (set DiskNum num_Scripts)
  671.     (InstallFile)
  672.  
  673.     (MoveLingua)
  674. )
  675.  
  676. (Procedure InstallEX
  677.     (set EX (tackon @dest "EX"))
  678.     (makedir EX (infos))
  679.     (tooltype (dest EX) (noposition))
  680.     (set StartupDrawer (tackon @dest "Startup"))
  681.     (makedir StartupDrawer (infos))
  682.     (tooltype (dest StartupDrawer) (noposition))
  683.  
  684.     (set Installing msg_EX)
  685.     (set LhaFile lha_EX)
  686.     (set DiskNum num_EX)
  687.     (InstallFile)
  688. )
  689.  
  690. (Procedure InstallFonts
  691.     (set Installing msg_Fonts)
  692.     (set LhaFile lha_Fonts)
  693.     (set DiskNum num_Fonts)
  694.     (InstallFontFiles)
  695. )
  696.  
  697. (Procedure InstallBack
  698.     (set Back (tackon @dest "Backgrounds"))
  699.     (makedir Back (infos))
  700.     (tooltype (dest Back) (noposition))
  701.     (set Installing msg_Back)
  702.  
  703.     (set LhaFile lha_Back1)
  704.     (set DiskNum num_Back1)
  705.     (InstallFile)
  706.     (if (not UPGR)
  707.       (
  708.        (set LhaFile lha_Back2)
  709.        (set DiskNum num_Back2)
  710.        (InstallFile)
  711.    
  712.        (set LhaFile lha_Back3)
  713.        (set DiskNum num_Back3)
  714.        (InstallFile)
  715.    
  716.        (set LhaFile lha_Back4)
  717.        (set DiskNum num_Back4)
  718.        (InstallFile)
  719.    
  720.        (set LhaFile lha_Back5)
  721.        (set DiskNum num_Back5)
  722.        (InstallFile)
  723.    )
  724.     )
  725.     (if (or (= VideoMode "NTSC") BackSize)
  726.       (MakeOverscan)
  727.     )
  728. )
  729.  
  730. (Procedure InstallDemos
  731.     (set Anim (tackon @dest "Animations"))
  732.     (makedir Anim (infos))
  733.     (tooltype (dest Anim) (noposition))
  734.  
  735.     (set Sounds (tackon @dest "Sounds"))
  736.     (makedir Sounds (infos))
  737.     (tooltype (dest Sounds) (noposition))
  738.  
  739.     (set Music (tackon @dest "Music"))
  740.     (makedir Music (infos))
  741.     (tooltype (dest Music) (noposition))
  742.  
  743.     (set Text (tackon @dest "Text"))
  744.     (makedir Text (infos))
  745.     (tooltype (dest Text) (noposition))
  746.  
  747.     (set Back (tackon @dest "Backgrounds"))
  748.     (makedir Back (infos))
  749.     (tooltype (dest Back) (noposition))
  750.  
  751.     (set Installing msg_Demos)
  752.  
  753.     (set LhaFile lha_Demos1)
  754.     (set DiskNum num_Demos1)
  755.     (InstallFile)
  756.  
  757.     (set LhaFile lha_Demos2)
  758.     (set DiskNum num_Demos2)
  759.     (InstallFile)
  760.  
  761.     (if (not UPGR)
  762.       (
  763.        (set LhaFile lha_Demos3)
  764.        (set DiskNum num_Demos3)
  765.        (InstallFile)
  766.  
  767.        (set LhaFile lha_Demos4)
  768.        (set DiskNum num_Demos4)
  769.        (InstallFile)
  770.    )
  771.     )
  772.  
  773.     (if IC
  774.         (
  775.        (set LhaFile lha_Demos5)
  776.        (set DiskNum num_Demos5)
  777.        (InstallFile)
  778.    
  779.        (set LhaFile lha_Demos6)
  780.        (set DiskNum num_Demos6)
  781.        (InstallFile)
  782.    
  783.        (set LhaFile lha_Demos7)
  784.        (set DiskNum num_Demos7)
  785.        (InstallFile)
  786.    
  787.        (set LhaFile lha_Demos8)
  788.        (set DiskNum num_Demos8)
  789.        (InstallFile)
  790.    
  791.        (set LhaFile lha_Demos9)
  792.        (set DiskNum num_Demos9)
  793.        (InstallFile)
  794.    )
  795.     )
  796. )
  797.  
  798.  
  799. (Procedure ResizeBack
  800.     (set BackSize
  801.       (+ 1 (askchoice
  802.                (prompt msg_Overscan2 msg_ChooseSize)
  803.                (help @askchoice-help)
  804.                (choices STD MAX)
  805.         )
  806.    )
  807.     )
  808.     (MakeOverscan)
  809. )
  810.  
  811. ;------------------------------- Main program -----------------------------
  812. (CheckFastMem)
  813. (CheckConfig)
  814. (InstallMenu)
  815. (if (<> Selection opt_Fonts)     (DestMenu))
  816. (if (bitand Selection opt_Back)        (BackMenu))
  817. (CopyTools)
  818.  
  819. (if (bitand Selection opt_Scala) (InstallScala))
  820. (if (bitand Selection opt_Utils) (InstallUtils))
  821. (if (bitand Selection opt_ARexx) (InstallARexx))
  822. (if (bitand Selection opt_Demos) (InstallScripts))
  823.  
  824. (if (bitand Selection opt_EX)    (InstallEX))
  825. (if (bitand Selection opt_Palettes) (InstallPalettes))
  826. (if (bitand Selection opt_Symbols)  (InstallSymbols))
  827. (if (bitand Selection opt_Fonts) (InstallFonts))
  828.  
  829. (if (bitand Selection opt_Back)     (InstallBack))
  830.  
  831. (if (bitand Selection opt_Demos) (InstallDemos))
  832.  
  833.  
  834. (DeleteTools)
  835.  
  836. (if (bitand Selection opt_Scala) (DeleteOldFiles))
  837.  
  838. (exit)
  839. (welcome)
  840.